100 REM ***SNOOPY *** DEMONSTRATION ***
110 DIM L(80)
120 FOR T=1 TO 63
130 LET L(T)=0
140 NEXT T
150 LET M=0
160 READ K,K1
170 IF K<0 THEN 260
180 IF K=1000 THEN 1180
190 IF K=999 THEN 1200
200 IF K<M THEN 220
210 LET M=K1
220 FOR Y=K TO K1
230 LET L(Y)=1
240 NEXT Y
250 GOTO 160
260 FOR I=1 TO 63 STEP 3
270 IF I>M THEN 320
280 IF L(I)=1 THEN 350
290 IF L(I+1)=1 THEN 460
300 IF L(I+2)=1 THEN 510
310 PRINT "   ";
320 NEXT I
330 PRINT
340 GOTO 120
350 IF L(I+1)=1 THEN 390
360 IF L(I+2)=1 THEN 440
370 PRINT"*  ";
380 GOTO 320
390 IF L(I+2)=1 THEN 420
400 PRINT "** ";
410 GOTO 320
420 PRINT "***";
430 GOTO 320
440 PRINT "* *";
450 GOTO 320
460 IF L(I+2)=1 THEN 420
470 PRINT " * ";
480 GOTO 320
490 PRINT " **";
500 GOTO 320
510 PRINT "  *";
520 GOTO 320
530 DATA 999,0
540 DATA 40,51,-1,0
550 DATA 37,51,53,53,-1,-1
560 DATA 34,49,56,56,-1,-1
570 DATA 32,47,57,57,-1,-1
580 DATA 30,45,58,58,-1,-1
590 DATA 28,43,59,59,-1,-1
600 DATA 27,41,60,60,-1,-1
610 DATA 25,39,60,60,-1,-1
620 DATA 24,37,60,60,-1,-1
630 DATA 24,35,59,59,-1,-1
640 DATA 25,32,43,45,58,61,-1,-1
650 DATA 26,29,41,41,45,45,57,57,62,62,-1,-1
660 DATA 32,32,40,40,46,46,53,56,-1,-1
670 DATA 32,32,40,40,46,46,52,52,56,56,-1,-1
680 DATA 23,23,31,31,39,39,46,46,56,56,-1,-1
690 DATA 22,22,25,25,30,30,39,39,46,46,56,56,-1,-1
700 DATA 22,22,26,28,38,38,46,46,56,56,-1,-1
710 DATA 22,22,27,27,38,38,46,46,56,56,-1,-1
720 DATA 19,22,28,28,33,35,38,38,45,45,57,57,-1,-1
730 DATA 15,15,23,23,28,28,32,32,35,35,39,39,44,44,58,58,-1,-1
740 DATA 13,13,23,23,29,29,32,32,36,36,38,38,44,44,59,59,-1,-1
750 DATA 12,12,22,22,29,29,32,32,37,39,44,44,60,60,-1,-1
760 DATA 3,5,11,11,20,23,29,29,32,32,44,44,60,60,-1,-1
770 DATA 2,2,6,6,10,10,20,23,28,28,32,32,45,45,60,60,-1,-1
780 DATA 2,2,7,7,20,23,27,27,32,32,46,46,59,59,-1,-1
790 DATA 2,2,7,7,21,26,31,31,47,47,58,58,-1,-1
800 DATA 2,4,31,31,51,56,-1,-1
810 DATA 2,2,31,31,50,55,-1,-1
820 DATA 2,4,30,30,50,52,54,55,-1,-1
830 DATA 2,2,8,9,30,30,51,54,-1,-1
840 DATA 2,4,7,7,10,10,29,29,-1,-1
850 DATA 3,3,6,6,12,12,27,27,-1,-1
860 DATA 5,5,15,15,26,26,-1,-1
870 DATA 17,17,23,23,-1,-1
880 DATA 18,18,23,23,-1,-1
890 DATA 16,16,24,24,29,29,31,31,-1,-1
900 DATA 16,16,24,27,32,32,-1,-1
910 DATA 17,17,32,32,-1,-1
920 DATA 18,18,31,31,-1,-1
930 DATA 20,30,-1,-1
940 DATA 47,47,-1,-1
950 DATA 46,46,50,50,-1,-1
960 DATA 45,45,52,52,-1,-1
970 DATA 44,44,54,54,-1,-1
980 DATA 44,44,56,56,-1,-1
990 DATA 43,43,57,57,-1,-1
1000 DATA 42,42,58,58,-1,-1
1010 DATA 42,42,59,59,-1,-1
1020 DATA 42,42,59,59,-1,-1
1030 DATA 41,41,60,60,-1,-1
1040 DATA 41,41,60,60,-1,-1
1050 DATA 42,42,60,60,-1,-1
1060 DATA 42,42,60,60,-1,-1
1070 DATA 42,42,60,60,-1,-1
1080 DATA 43,42,60,60,-1,-1
1090 DATA 43,43,60,60,-1,-1
1100 DATA 44,44,59,59,-1,-1
1110 DATA 45,45,59,59,-1,-1
1120 DATA 47,47,58,58,-1,-1
1130 DATA 48,48,57,57,-1,-1
1140 DATA 50,50,56,56,-1,-1
1150 DATA 52,52,55,55,-1,-1
1160 DATA 1000,0
1170 DATA 1000,0
1180 PRINT "********************WE HOPE YOU LIKE IT**************"
1190 END
1200 PRINT "A PICTURE OF SNOOPY FROM BP-80 SYSTEM"
1210 PRINT 
1220 GOTO 160
1230 END
